﻿''' <summary>
''' Erstellt einen Läufer
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class EinheitLäufer
    Inherits ObjektEinheit
    Public Sub New(ByVal neuSpieler As Integer, ByVal neuX As Integer, ByVal neuY As Integer, Optional ByVal HatSichBewegt As Boolean = True)
        MyBase.New(neuSpieler, neuX, neuY, HatSichBewegt)
    End Sub
    Public Sub New(ByVal neuKP As Integer, ByVal neuTreibstoff As Integer, ByVal neuMunition As Integer, ByVal neuSpieler As Integer, ByVal neuBesetzen As Boolean, ByVal neuX As Integer, ByVal neuY As Integer, ByVal Tarnung As Boolean, Optional ByVal HatSichbeWegt As Boolean = True)
        MyBase.New(neuKP, neuTreibstoff, neuMunition, neuSpieler, neuX, neuY, neuBesetzen, HatSichbeWegt, Tarnung)
    End Sub
    Public Sub New(ByVal neuKP As Integer, ByVal neuSpieler As Integer, ByVal neuX As Integer, ByVal neuY As Integer, Optional ByVal HatSichbeWegt As Boolean = True)
        MyBase.New(neuKP, neuSpieler, neuX, neuY, HatSichbeWegt)
    End Sub
    Protected Overrides Sub Datenladen()
        If My.Settings.CommanderWarsGameMoodus <= CommanderWarsGameModi.AdvanceWarsDS Then
            Einheitenname = MovementSorts.Läufer.ToString
            EinheitenID = "LÄUFER"
            SpritMax = 99
            KannTarnen = False
            KannBesetzen = False
            Treibeverbrauch = 0
            Koste = 20000
            Fähigkeit = ""
            Treibstoff = SpritMax
            Bewegungspunkte = 9
            Bewegungsart = MovementSorts.Läufer.ToString
            Sicht = 4
            MunitionMax = 9
            Munition = MunitionMax
            Waffe1 = "Keine"
            Waffe2 = "Läuferhaubitze"
            Array.Resize(Ladung, 0)
            Array.Resize(GeladeneEinheitenIDs, 0)
            Array.Resize(EntladungsUntergrund, 0)
            MinimaleReichweite = 2
            MaximaleReichweite = 5
            BildIDbestimmen()
            Explosion = "Land"
        Else
            Einheitenname = MovementSorts.Läufer.ToString
            EinheitenID = "LÄUFER"
            SpritMax = 99
            KannTarnen = False
            KannBesetzen = False
            Treibeverbrauch = 0
            Koste = 20000
            Fähigkeit = ""
            Treibstoff = SpritMax
            Bewegungspunkte = 9
            Bewegungsart = MovementSorts.Läufer.ToString
            Sicht = 4
            MunitionMax = 9
            Munition = MunitionMax
            Waffe1 = "Keine"
            Waffe2 = "Läuferhaubitze"
            Array.Resize(Ladung, 0)
            Array.Resize(GeladeneEinheitenIDs, 0)
            Array.Resize(EntladungsUntergrund, 0)
            MinimaleReichweite = 2
            MaximaleReichweite = 5
            BildIDbestimmen()
            Explosion = "Land"
        End If
    End Sub
End Class
